#include "FivePro.ch"

//----------------------------------------------------------------------------//

function StrFill( cString, cChar )

   local cResult := ""
   local n

   DEFAULT cChar := " "

   for n = 1 to Len( cString )
       cResult += SubStr( cString, n, 1 ) + cChar
   next

return cResult

//----------------------------------------------------------------------------//
